%%HP: T(1)A(D)F(,);
 CLLCD
"SIM                NAO"
7 DISP 1 10
  FOR w w 12000 ,01
BEEP DROP
  NEXT
"        APAGA?" 4
DISP 4 FREEZE
  IF 0 WAIT 11,1 ==
  THEN PURGE
  ELSE CLLCD
"      NO APAGADO"
3 DISP ,5 WAIT
  END

